Fix thinko in ls-lisp--insert-directory

* lisp/ls-lisp.el (ls-lisp--insert-directory): Ensure that
SWITCHES is a string.

diff --git a/lisp/ls-lisp.el b/lisp/ls-lisp.el
index 8e81f79e4294cc058f92b91745a0fbcf64645765..82153ff0adb68d813301c1d64c2b3ef294a0d170 100644 (file)
--- a/lisp/ls-lisp.el
+++ b/lisp/ls-lisp.el
@@ -283,6 +283,7 @@ are also supported; unsupported long options are silently ignored."
       (funcall orig-fun
               file switches wildcard full-directory-p)
     ;; We need the directory in order to find the right handler.
+    (setq switches (or switches ""))
     (let ((handler (find-file-name-handler (expand-file-name file)
                                           'insert-directory))
          (orig-file file)